From: Daiki Ueno <ueno@unixuser.org>
Date: Sun, 3 May 2009 22:27:40 +0000 (+0000)
Subject: Fix timing problem of Bug#2412.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~675
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e80f5eb157874d80adef95d123b1fd609731d4c6;p=emacs.git

Fix timing problem of Bug#2412.

(epg-wait-for-completion): Sleep after the process
exits, to allow process-filter to run (Bug#2412).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9339edf3fdb..cfd9239e4c5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-05-03  Daiki Ueno  <ueno@unixuser.org>
 
+	* epg.el (epg-wait-for-completion): Sleep after the process
+	exits, to allow process-filter to run (Bug#2412).
+
 	* epa.el (epa--read-signature-type): Fix typo.
 
 2009-05-02  Glenn Morris  <rgm@gnu.org>
diff --git a/lisp/epg.el b/lisp/epg.el
index e96258fe909..3c80ef9db77 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -1175,7 +1175,8 @@ This function is for internal use only."
 (defun epg-wait-for-completion (context)
   "Wait until the `epg-gpg-program' process completes."
   (while (eq (process-status (epg-context-process context)) 'run)
-    (accept-process-output (epg-context-process context) 1)))
+    (accept-process-output (epg-context-process context) 1))
+  (sleep-for 0.1))
 
 (defun epg-reset (context)
   "Reset the CONTEXT."